Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/unix/volume24/newsgate/part04

Internet Message Format | 1991-10-09 | 19.2 KB

Subject:  v24i054:  News/mail gateway package, Part04/04
Newsgroups: comp.sources.unix
Approved: [e-mail]
X-Checksum-Snefru: e2e8a662 48e21fe4 3f9a1a28 b038ddc6

Submitted-by: Rich $alz <[e-mail]>
Posting-number: Volume 24, Issue 54
Archive-name: newsgate/part04

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then feed it
# into a shell via "sh file" or similar.  To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to [e-mail] if you want that tool.
# Contents:  Makefile TODO mkmailpost.1 news2mail.sh patchlevel.h
#   signoff.1 str.c test-addr test-gag
# Wrapped by [e-mail] on Fri Mar 15 16:42:28 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
echo If this archive is complete, you will see the following message:
echo '          "shar: End of archive 4 (of 4)."'
if test -f 'Makefile' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Makefile'\"
else
  echo shar: Extracting \"'Makefile'\" \(2636 characters\)
  sed "s/^X//" >'Makefile' <<'END_OF_FILE'
X##
X##  Makefile for mail/news gateway programs.
X##  $Header: /nfs/papaya/u2/rsalz/src/newsgate/src/RCS/Makefile,v 1.10 91/02/12 15:10:43 rsalz Exp $
X##
XSHELL    = /bin/sh
X
X##  Edit appropriately.  See gate.h before you touch UUCP_INET.
X2_11        = /nfs/papaya/source/news2.11/src
XUUCP_INET    = /usr/lib/news/.admin/uucp-2-inet
XDESTDIR        = /usr/uucp/bin
XOPT        = -g
X#OPT        = -O
XDEFS        =
XCFLAGS        = $(OPT) $(DEFS)
XLINKFLAGS    =
X#LINKFLAGS    = -s -Bstatic
X
XTARFILE        = newsgate.tar.Z
X
X##  News files, copied over from $(2_11).
XGETDATE    = getdate.o
X
X##  Gag, the gateway alias generator.
XG_SRCS    = gag.c lex.c misc.c
XG_OBJS    = gag.o lex.o misc.o
X
X##  Mail2News, the mail into news part of the gateway.
XM_SRCS    = misc.c regex.c str.c hdr.c mail2news.c rfc822.c
XM_OBJS    = misc.o regex.o str.o hdr.o mail2news.o rfc822.o $(GETDATE)
X
X##  News2Mail, the news into mail part of the gateway.
XN_SRCS    = misc.c news2mail.c
XN_OBJS    = misc.o news2mail.o
X
X##  Manpages for the programs.
XDOCS    = gag.1 mail2news.1 mkmailpost.1 news2mail.1 signoff.1
X
Xall:            mail2news news2mail gag mkmailpost tags lint
X
Xinstall:        all
X    @echo "Install as directed in the README file."
X#    @rm -f $(DESTDIR)/gag $(DESTDIR)/mail2news $(DESTDIR)/news2mail
X#    cp gag mail2news news2mail $(DESTDIR)/.
X#    cp uucp-2-inet $(UUCP_INET)
X
Xclean:
X    rm -f mail2news news2mail gag mkmailpost *.o
X    rm -f tags lint.? core gag.c gag.h lex.c
X    rm -f Part0? $(TARFILE)
X
Xtags:            $(N_SRCS) $(M_SRCS)
X    ctags -tw $(N_SRCS) $(M_SRCS) $(G_SRCS) gate.h
X
Xlint:            lint.d lint.g lint.m lint.n
X
X
X##
Xmail2news:        $(M_OBJS)
X    @rm -f mail2news
X    $(CC) $(CFLAGS) $(LINKFLAGS) -o mail2news $(M_OBJS)
X
Xnews2mail:        $(N_OBJS)
X    @rm -f news2mail
X    $(CC) $(CFLAGS) $(LINKFLAGS) -o news2mail $(N_OBJS)
X
Xgag:            $(G_OBJS)
X    @rm -f gag
X    $(CC) $(CFLAGS) $(LINKFLAGS) -o gag $(G_OBJS)
X
Xmkmailpost:        mkmailpost.sh
X    @rm -f mkmailpost
X    cp mkmailpost.sh mkmailpost
X    chmod 755 mkmailpost
X
X##
X$(G_OBJS) $(M_OBJS) $(N_OBJS):    gate.h
X
X
X##
Xlint.d:            $(DOCS)
X    checknr -c.IR.BI.RI $(DOCS) regex.3 >lint.d
Xlint.g:            gag
X    lint -a    -h $(DEFS) $(G_SRCS) |grep -v yaccpar >lint.g
Xlint.m:            mail2news
X    lint -a -b -h $(DEFS) $(M_SRCS) >lint.m
Xlint.n:            news2mail
X    lint -a -b -h $(DEFS) $(N_SRCS) >lint.n
X
X
X##  Keep intermediate files around.
Xlex.o:            lex.c
Xgag.o:            gag.c
Xgag.c:            gag.y
X    @rm -f gag.c gag.h
X    yacc -d gag.y
X    @mv y.tab.c gag.c
X    @mv y.tab.h gag.h
X
X
X##
Xshar:
X    @rm -f Part0?
X    makekit -m
X    @rm -f MANIFEST.BAK
X    @-chmod 444 Part0?
Xtar:
X    @rm -f $(TARFILE)
X    tar cf newsgate.tar `awk 'NR > 2 { print $$1; }' <MANIFEST`
X    compress newsgate.tar
X
X
X##  Get the date parser from 2.11 news.
X$(GETDATE):
X    @rm -f $(GETDATE)
X    cd $(2_11) ; make $(GETDATE)
X    cp $(2_11)/$(GETDATE) .
END_OF_FILE
  if test 2636 -ne `wc -c <'Makefile'`; then
    echo shar: \"'Makefile'\" unpacked with wrong size!
  fi
  # end of 'Makefile'
fi
if test -f 'TODO' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'TODO'\"
else
  echo shar: Extracting \"'TODO'\" \(723 characters\)
  sed "s/^X//" >'TODO' <<'END_OF_FILE'
X
XA news2mail option that specifies an Errors-To header.
XA mail2news option that specifies where errors get mailed to.
XA news2mail option that specifies a Sender header.
X
XFrom [e-mail]
XFrom looking!brad
XFrom isaak!woerz
XFrom ateng!chip
XFrom auspex!guy
XSummary: Generate References: line from
X    - indentical Subject line texts (less any 'Re: 's)
X      (Involves keeping a database of current subject lines; use iff
X       In-Relpy-To is missing subject starts with Re:)
X    - Message-ID's (where present) in In-Reply-To: kines
X    - Other information in In-Reply-To: lines.
X
XProblems -- Berkeley Mail doesn't generate them, do other UA's?
X    They don't always contain the Message-ID of the message to
X    which the user is replying.
END_OF_FILE
  if test 723 -ne `wc -c <'TODO'`; then
    echo shar: \"'TODO'\" unpacked with wrong size!
  fi
  # end of 'TODO'
fi
if test -f 'mkmailpost.1' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkmailpost.1'\"
else
  echo shar: Extracting \"'mkmailpost.1'\" \(2475 characters\)
  sed "s/^X//" >'mkmailpost.1' <<'END_OF_FILE'
X.\" $Header: /nfs/papaya/u2/rsalz/src/newsgate/src/RCS/mkmailpost.1,v 1.5 91/02/12 14:49:13 rsalz Exp $
X.TH MKMAILPOST 1 LOCAL
X.SH NAME
Xmkmailpost \- make a set of mailpost commands for a gag file
X.SH SYNOPSIS
X.B mkmailpost
X[
X.B activefile
X[
X.B mail2news_path
X] ]
X.SH DESCRIPTION
X.I mkmailpost
Xreads the news active file and generates a a set of ``mailpost'' commands
Xfor feeding into
X.IR gag (1L).
XOutput is sent to the standard output.
X.PP
XThe first argument is the path to the news active file; the default is
X.IR /usr/lib/news .
XThe second argument is the path to the
X.I mail2news
Xprogram; if specified, then a ``default mail2news
X.IR path ''
Xis output.
X.PP
X.I Mkmailpost
Xignores moderated groups, as well as ``junk,'' ``general,'' and those
Xof the form
X.RI ``to. site .''
XIt also ignores groups with the word ``test'' in them; such groups usually
Xhave mail reflectors attached to them, so that the poster gets a copy of
Xtheir message.
XIt is assumed that this is not appropriate if someone is mailing into a site.
X.I Mkmailpost
Xalso ignores groups with with the words ``announce'' in them under the
Xassumption that they are moderated groups and mail should be sent to
Xthe moderator, instead.
X(It is agreed that finding the moderator for non-Usenet sites can be
Xproblematic.)
X.PP
XAssume the main
X.I gag
Xinput is named
X.IR main.gag .
XThe following command line can be useful:
X.RS
X.nf
X( echo '#include "main.gag"' ; mkmailpost ) \e
X    | /lib/cpp | gag
X.fi
X.RE
X(On some systems you may have to use ``cc \-E'' or ``cc \-P'' instead
Xof ``/lib/cpp.'')
X.SH BUGS
XSince the name and number of Usenet groups changes very frequently,
Xa better method is to define a more general way of feeding mail into
Xnewsgroups.
XFor example, with
X.IR sendmail (8),
Xit is possible to define a class for all top-level groups (this changes
Xmuch less frequently), and define a ``news'' mailer to receive mail
Xsent to such addresses.
XIf the following class is defined:
X.RS
X.nf
XCNcomp misc news rec sci soc talk alt
XCNunix\-pc ddn gnu u3b pubnet
X.fi
X.RE
Xthen these lines can be added to the ``mailer resolver'' part of ruleset zero:
X.RS
XR$=N.$*   $#news$:$1.$2   Posting to news
X.RE
Xwith the following mailer defined:
X.RS
X.nf
X.ta \w'Mnews,  'u
XMnews,    P=/usr/lib/news/mail2news,
X    F=DFMls, M=131071, A=mail2news -n $u
X.fi
X.RE
XThis idea comes from Karl Kleinpaste <[e-mail]>.
X.SH "SEE ALSO"
Xgag(1L).
X.SH AUTHOR
XRich $alz <[e-mail]>, after an idea by
X.br
XErik E. Fair <[e-mail]>.
END_OF_FILE
  if test 2475 -ne `wc -c <'mkmailpost.1'`; then
    echo shar: \"'mkmailpost.1'\" unpacked with wrong size!
  fi
  # end of 'mkmailpost.1'
fi
if test -f 'news2mail.sh' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'news2mail.sh'\"
else
  echo shar: Extracting \"'news2mail.sh'\" \(2032 characters\)
  sed "s/^X//" >'news2mail.sh' <<'END_OF_FILE'
X#! /bin/sh
X##  $Header: /nfs/papaya/u2/rsalz/src/newsgate/src/RCS/news2mail.sh,v 1.3 91/02/12 14:50:28 rsalz Exp $
X##  A short, mostly-awk, script to send news on stdin out as mail.
X##  Usage:  news2mail <address>
X##  Written by John S. Quarterman <[e-mail]>.
X##  Light editing by Rich $alz <[e-mail]>.
XPATH=/usr/local:/usr/ucb:/bin:/usr/bin ; export PATH
X
Xcase $1 in
X"")
X    echo "Usage:  `basename $0` address"
X    exit 1
X    ;;
X"-")
X    TO="cat -u"
X    ;;
X*)
X    TO="/bin/mail $1"
X    ;;
Xesac
X
Xawk '
XBEGIN {
X    header = 1;
X    date = "";
X}
Xheader == 1 && /^$/ {
X    # End of headers; print dates.
X    header = 0;
X    if (pdate != "" && date ~ /GMT/ && pdate !~ /GMT/) {
X    print "Date: "pdate;
X    print "Posted-Date: "date;
X    } else {
X    if (date != "")
X        print "Date: "date;
X    if (pdate != "")
X        print "Posted-Date: "pdate;
X    }
X}
Xheader == 0 {
X    print $0;
X    next;
X}
X$1 == "Relay-Version:"        { next; }
X$1 == "Posting-Version:"    { next; }
X$1 == "Path:"            { next; }
X$1 == "From"            { next; }
X$1 == "Date-Received:"        { next; }
X$1 == "Received-Date:"        { next; }
X#$1 == "Newsgroups:"        { next; }
X#$1 == "Organization:"        { next; }
X$1 == "Approved:"        { next; }
X$1 == "Lines:"            { next; }
X$1 == "Date:" {
X    date = $2;
X    for (i = 3; i <= NF; i++)
X    date = date " " $i;
X    next;
X}
X$1 == "Posted-Date:" {
X    pdate = $2;
X    for (i = 3; i <= NF; i++)
X    pdate = pdate " " $i;
X    next;
X}
X$1 == "From:" {
X    address=$2;
X    name = "";
X    surround = 0;
X    for (f = 3; f <= NF; f++) {
X    if ($f ~ /,/)
X        surround=1;
X    if (split ($f, parts, "(") > 1)
X        it = parts[2];
X    else
X        it = $f;
X    if (split ($f, parts, ")") > 1)
X        it = parts[1];
X    if (name == "")
X        name = it;
X    else
X        name = name " " it;
X    }
X    if (address ~ /.UUCP$/) {
X    split(address, parts, "@");
X    address = sprintf ("%s%%%s@%s", parts[1], parts[2], "'`hostname`'");
X    }
X    if (surround != 0)
X        printf ("From: %s (%s)\n", address, name);
X    else
X        printf ("From: %s <%s>\n", name, address);
X    next;
X}
X{
X    print $0;
X}' | eval $TO
END_OF_FILE
  if test 2032 -ne `wc -c <'news2mail.sh'`; then
    echo shar: \"'news2mail.sh'\" unpacked with wrong size!
  fi
  chmod +x 'news2mail.sh'
  # end of 'news2mail.sh'
fi
if test -f 'patchlevel.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'patchlevel.h'\"
else
  echo shar: Extracting \"'patchlevel.h'\" \(478 characters\)
  sed "s/^X//" >'patchlevel.h' <<'END_OF_FILE'
X/*
X**  HEADER FILE FOR NEWS/MAIL GATEWAY CODE.
X**  $Header: /nfs/papaya/u2/rsalz/src/newsgate/src/RCS/patchlevel.h,v 1.2 91/02/12 15:02:40 rsalz Exp $
X**
X**  $Log:    patchlevel.h,v $
X**  Revision 1.2  91/02/12  15:02:40  rsalz
X**  Incorporate all known major code fixes.
X**  For release to NNTP-MANAGERS, prior to posting.
X**  I hope next release will be 2.0, reasonable patches.
X**
X**  Revision 1.1  89/07/10  13:04:23  rsalz
X**  Initial revision
X**
X*/
X#define PATCHLEVEL    10
END_OF_FILE
  if test 478 -ne `wc -c <'patchlevel.h'`; then
    echo shar: \"'patchlevel.h'\" unpacked with wrong size!
  fi
  # end of 'patchlevel.h'
fi
if test -f 'signoff.1' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'signoff.1'\"
else
  echo shar: Extracting \"'signoff.1'\" \(2210 characters\)
  sed "s/^X//" >'signoff.1' <<'END_OF_FILE'
X.\" $Header: /nfs/papaya/u2/rsalz/src/newsgate/src/RCS/signoff.1,v 1.3 91/02/12 14:54:40 rsalz Exp $
X.TH SIGNOFF 1 LOCAL
X.SH NAME
Xsignoff \- See if a message is a subscription request
X.SH SYNOPSIS
X.B signoff
X[
X.I message_file
X]
X.SH DESCRIPTION
X.PP
X.I Signoff
Xis a small hack used to see if a mail message is one of those annoying
X\&``please add me'' or ``please drop me from your list'' messages.
XSuch messages should be sent to a list maintainer, but often people
Xmake mistakes and send them to the entire list.
XThis behavior is particularly impolite when a message is gatewayed into
Xa Usenet newsgroup.
X.PP
XWhen invoked as a front-end to
X.IR mail2news ,
X.I signoff
Xdoes a pretty good job of trapping such messages before they get posted.
X.I Signoff
Xreads the message from the file named in its first argument, or from
Xstandard input if no arguments are given.
XIt exits with a successful (zero) status if the message is a normal one,
Xor does an ``exit(1)'' if the message is a subscription request.
XFor example, here is a script that could be used as a wrapper around the
X.I news2mail
Xprogram:
X.RS
X.nf
X#! /bin/sh
Xcat >/tmp/signoff$$
Xif /usr/lib/news/signoff </tmp/signoff$$ ; then
X    /usr/ucb/Mail -s "Rejected subscription request" news </tmp/signoff$$
Xelse
X    /usr/lib/news/mail2news.real </tmp/signoff$$
Xfi
Xexec rm /tmp/signoff$$
X.fi
X.RE
X.PP
XNote that
X.I signoff
Xis already incorporated into
X.IR mail2news ;
Xsee the ``\-F'' option.
XIt is provided here as a separate program for more conservative use.
X(The ``\-F'' doesn't send rejected messages to the news account for
Xverification.)
XAlso, with the following line in your news sys file:
X.RS
X.nf
Xsignoff:all::/usr/lib/news/test_signoff
X.fi
X.RE
Xand the following script:
X.RS
X.nf
X#! /bin/sh
Xcat >/tmp/ts$$
X/usr/lib/news/signoff </tmp/ts$$ || Mail -s "Signoff found" news </tmp/ts$$
Xexec rm /tmp/ts$$
X.fi
X.RE
Xit is possible to test the ``algorithm'' used by
X.IR signoff .
X.SH BUGS
XPerhaps a better way to test is to make the test less conservative,
Xand see what valid articles get caught, and make adjustments then?
XComments on the program are solicited.
X.SH AUTHORS
XRich $alz <[e-mail]>, after a program by
X.br
XRuss Nelson <[e-mail]>.
END_OF_FILE
  if test 2210 -ne `wc -c <'signoff.1'`; then
    echo shar: \"'signoff.1'\" unpacked with wrong size!
  fi
  # end of 'signoff.1'
fi
if test -f 'str.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'str.c'\"
else
  echo shar: Extracting \"'str.c'\" \(612 characters\)
  sed "s/^X//" >'str.c' <<'END_OF_FILE'
X/*
X**  String-related routines for mail2news.
X*/
X#include "gate.h"
X#ifdef    RCSID
Xstatic char RCS[] =
X    "$Header: /nfs/papaya/u2/rsalz/src/newsgate/src/RCS/str.c,v 1.6 91/03/13 15:57:16 rsalz Exp $";
X#endif    /* RCSID */
X
X
X/*
X**  For Ozan Yigit's public domain regex.
X*/
X/* ARGSUSED */
Xvoid
Xre_fail(text, arg)
X    char    *text;
X    int        arg;
X{
X}
X
X
X/*
X**  Free up something that ReadFile made.  This doesn't belong here,
X**  but news2mail doesn't need it, so we don't want it in misc.c.
X*/
Xvoid
XFreeFile(V)
X    char        **V;
X{
X    register char    **p;
X
X    if (p = V) {
X    while (*p)
X        free(*p++);
X    free((char *)V);
X    }
X}
END_OF_FILE
  if test 612 -ne `wc -c <'str.c'`; then
    echo shar: \"'str.c'\" unpacked with wrong size!
  fi
  # end of 'str.c'
fi
if test -f 'test-addr' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'test-addr'\"
else
  echo shar: Extracting \"'test-addr'\" \(540 characters\)
  sed "s/^X//" >'test-addr' <<'END_OF_FILE'
X##
X##  Test re-write rules in hdr.c with -DTEST.
X##  $Header: /nfs/papaya/u2/rsalz/src/newsgate/src/RCS/test-addr,v 1.2 89/10/24 22:07:45 rsalz Exp $
X##
Xuucp-site!user
Xsite.dom.com!user
Xsite1.dom.com![e-mail]
[e-mail]
[e-mail]
[e-mail]
Xuusite1!uusite2!uucp-site!user
Xuusite1!uusite2!uucp-site.edu!user
Xuusite1!uucp-site.bogus!user
[e-mail]
[e-mail]
Xseismo!site.oz!user
Xuser%site.bitnet@bitgate
Xuser%gate1%gate.edu@bitgate
X@router:[e-mail]
Xuser%site1.edu%site2.com@gateway
END_OF_FILE
  if test 540 -ne `wc -c <'test-addr'`; then
    echo shar: \"'test-addr'\" unpacked with wrong size!
  fi
  # end of 'test-addr'
fi
if test -f 'test-gag' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'test-gag'\"
else
  echo shar: Extracting \"'test-gag'\" \(2749 characters\)
  sed "s/^X//" >'test-gag' <<'END_OF_FILE'
X/*
X**  Test suite for gag, Gateway Alias Generator.
X**
X**  $Header: /nfs/papaya/u2/rsalz/src/newsgate/src/RCS/test-gag,v 1.3 89/11/01 17:36:56 rsalz Exp $
X*/
X
X
X/*
X**  BBN MAILING LISTS
X*/
X/* default inews flags = ""; */
Xdefault distributions = "world usa na ne bbn ddn gnu inet";
Xdefault directory = "/usr/lib/news/.admin";    /* Where MMDF scripts are */
Xdefault mail2news = "/usr/uucp/bin/mail2news";    /* Paths to gateway    */
Xdefault news2mail = "/usr/uucp/bin/news2mail";    /*   programs        */
Xdefault mailcontact = "usenet";            /* Put in mail headers    */
Xdefault mailhost = "mailer.bbn.com";        /* MMDF list processor    */
Xdefault mailinglist = true;            /* Going both ways    */
Xdefault organization = "BBN news/mail gateway";
Xdefault owner = "usenet";            /* Sendmail alias owner    */
Xdefault site = "gateway";            /* Psuedo news site    */
Xdefault user = "news";                /* MMDF script owner    */
X
X/*    newsgroup        mailing list */
Xgateway bbn.bboard        bboard;
Xgateway bbn.test        usenet;
X
X/* Mail rec.equestrian articles to the list moderator, unless he's seen
X * them already. */
Xgateway rec.equestrian        horse
X    news2mail =
X        "v6mail -to [e-mail] -subj 'Forwarded Horse Article'"
X    site = "ccp.bbn.com";
X
X/* Set up post-comp-foo as an alias that posts articles. */
Xmailpost comp.foo;
X
X
X/*
X**  GNU MAILING LISTS (OSU)
X*/
Xdefault site = "internet";            /* Psuedo news site    */
Xdefault inews flags = "-x internet -d gnu";    /* Flags for mail2news    */
Xdefault mail2news = "/usr/lib/news/nrecnews";    /* Path to mail2news    */
Xdefault mailhost = "prep.ai.mit.edu";        /* Home of mailing list    */
Xdefault mailinglist = true;            /* Going both ways    */
Xdefault organization = dotify("GNUs Not Usenet");
Xdefault owner = "usenet";            /* Sendmail alias owner    */
X
Xgateway gnu.announce            info-gnu
X    moderator = "[e-mail]"
X    inews flags = "-d gnu";
Xgateway gnu.emacs            info-gnu-emacs;
Xgateway gnu.emacs.bug            bug-gnu-emacs;
Xgateway gnu.gdb.bug            bug-gdb;
Xgateway gnu.gcc                info-gcc;
Xgateway gnu.gcc.bug            bug-gcc;
Xgateway gnu.g++                info-g++;
Xgateway gnu.g++.bug            bug-g++;
Xgateway gnu.chess            info-chess;
Xgateway gnu.ghostscript.bug        bug-ghostscript;
Xgateway gnu.utils.bug            bug-gnu-utils;
Xgateway gnu.emacs.gnus            info-gnus-english
X    mailhost = "cis.ohio-state.edu";
Xgateway gnu.emacs.vms        vms-gnu-emacs
X    mailhost = "harvard.havard.edu";
Xgateway gnu.emacs.lisp.manual        gnu-manual
X    mailhost = "a.cs.uiuc.edu";
X
X
X/*
X**  OSU LOCAL MAILING LISTS
X*/
Xgateway alt.sca                sca
X    inews flags = "-d alt -x internet"
X    mailhost = "mc.lcs.mit.edu"
X    mailinglist = false
X    organization = dotify("Society for Creative Anachronism");
X
Xgateway cis.big-lan            big-lan
X    inews flags = "-d cis -x internet"
X    mailhost = "suvm.acs.syr.edu"
X    organization = dotify("The Internet");
END_OF_FILE
  if test 2749 -ne `wc -c <'test-gag'`; then
    echo shar: \"'test-gag'\" unpacked with wrong size!
  fi
  # end of 'test-gag'
fi
echo shar: End of archive 4 \(of 4\).
cp /dev/null ark4isdone
MISSING=""
for I in 1 2 3 4 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 4 archives.
    rm -f ark[1-9]isdone
else
    echo You still must unpack the following archives:
    echo "        " ${MISSING}
fi
exit 0
exit 0 # Just in case...